﻿'Digite o NameSpace: ArtNoi
'Digite o nome da Classe de dominio: Produto


<Serializable()> _
Public Class Produto
    Inherits BaseDominio


    Private _nome As String
    Public Overridable Property Nome() As String
        Get
            Return _nome
        End Get
        Set(ByVal value As String)
            _nome = value
        End Set
    End Property


    Private _dataCadastro As DateTime
    Public Overridable Property DataCadastro() As DateTime
        Get
            Return _dataCadastro
        End Get
        Set(ByVal value As DateTime)
            _dataCadastro = value
        End Set
    End Property


    Private _tamanho As String
    Public Overridable Property Tamanho() As String
        Get
            Return _tamanho
        End Get
        Set(ByVal value As String)
            _tamanho = value
        End Set
    End Property


    Private _precoVenda As Double
    Public Overridable Property PrecoVenda() As Double
        Get
            Return _precoVenda
        End Get
        Set(ByVal value As Double)
            _precoVenda = value
        End Set
    End Property


    Private _precoAluguel As Double
    Public Overridable Property PrecoAluguel() As Double
        Get
            Return _precoAluguel
        End Get
        Set(ByVal value As Double)
            _precoAluguel = value
        End Set
    End Property





#Region "Negocio"

    Public Sub New()
        MyBase.New()
    End Sub

    Public Overridable Function Buscar(ByVal _id As Long) As Produto
        Return MyBase.ProdutoDao.Buscar(_id)
    End Function

    Public Overridable Sub Salvar()
        MyBase.ProdutoDao.Salvar(Me)
    End Sub

#End Region

End Class

